home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Aldus Persuasion Demo / Global Cast / Global Cast.rsrc / TEXT_1332.txt < prev    next >
Text File  |  1988-10-26  |  122b  |  7 lines
  1. s#
  2. set &y = mouseh
  3. if commanddown then skip 2
  4. exit
  5. if not thechar = 'p' then skip 2
  6. if mouseh = &y then skip -1
  7. exit&Àáh